home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / mb33731.lsp < prev    next >
Text File  |  1998-03-15  |  7KB  |  221 lines
  1. ;=============337.31 ENDSCHALTERBEFESTIGUNG
  2.  
  3. (EAITDBL "0033731")
  4. (EAITmsg "mb_mld10" "\n" "002" nil) (princ "........") (princ EAITnrx) (princ "\n")
  5. (princ)
  6.  
  7. (defun C:33731V1 ( / P1 Wi)
  8.    (EAITDBL "0033731")
  9.    (princ (strcat "\n\n" EAITbez1))
  10.      (EAITvari)
  11.      (EAITvars)
  12.      (setvar "ORTHOMODE" 0)
  13.      (EAITbpt nil nil nil)
  14.      (setq P1 (getpoint))
  15.      (if (= P1 nil)(setq P1 (EAITrpt)))
  16.      (setvar "OSMODE" 0)
  17.      (setvar "ORTHOMODE" 1)
  18.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  19.      (command EAITege (strcat EAITpfn "33731V1") P1 "" "" EAITofkei pause)
  20.  
  21.      (setq Wi (EAITbw))
  22.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 343)) 30) "" "" ""
  23.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  24.      )
  25.  
  26.      (EAITvarz2)
  27.      (princ)
  28.  
  29. );defun V1
  30.  
  31.  
  32.  
  33. (defun C:33731V2 ( / P1 Wi)
  34.    (EAITDBL "0033731")
  35.    (princ (strcat "\n\n" EAITbez1))
  36.      (EAITvari)
  37.      (EAITvars)
  38.      (setvar "ORTHOMODE" 0)
  39.      (EAITbpt nil nil nil)
  40.      (setq P1 (getpoint))
  41.      (if (= P1 nil)(setq P1 (EAITrpt)))
  42.      (setvar "OSMODE" 0)
  43.      (setvar "ORTHOMODE" 1)
  44.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  45.      (command EAITege (strcat EAITpfn "33731V2") P1 "" "" EAITofkei pause)
  46.  
  47.      (setq Wi (EAITbw))
  48.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 197)) 30) "" "" ""
  49.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  50.      )
  51.  
  52.      (EAITvarz2)
  53.      (princ)
  54.  
  55. );defun V2
  56.  
  57. (defun C:33731V3 ( / P1 Wi)
  58.    (EAITDBL "0033731")
  59.    (princ (strcat "\n\n" EAITbez1))
  60.      (EAITvari)
  61.      (EAITvars)
  62.      (setvar "ORTHOMODE" 0)
  63.      (EAITbpt nil nil nil)
  64.      (setq P1 (getpoint))
  65.      (if (= P1 nil)(setq P1 (EAITrpt)))
  66.      (setvar "OSMODE" 0)
  67.      (setvar "ORTHOMODE" 1)
  68.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  69.      (command EAITege (strcat EAITpfn "33731V3") P1 "" "" EAITofkei pause)
  70.  
  71.      (setq Wi (EAITbw))
  72.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 333)) 19) "" "" ""
  73.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  74.      )
  75.    (EAITDBL "0033714")      ;Endschalter M8
  76.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 27)) 29) "" "" ""
  77.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  78.      )
  79.  
  80.      (EAITvarz2)
  81.      (princ)
  82.  
  83. );defun V3
  84.  
  85.  
  86. (defun C:33731V4 ( / P1 Wi)
  87.    (EAITDBL "0033731")
  88.    (princ (strcat "\n\n" EAITbez1))
  89.      (EAITvari)
  90.      (EAITvars)
  91.      (setvar "ORTHOMODE" 0)
  92.      (EAITbpt nil nil nil)
  93.      (setq P1 (getpoint))
  94.      (if (= P1 nil)(setq P1 (EAITrpt)))
  95.      (setvar "OSMODE" 0)
  96.      (setvar "ORTHOMODE" 1)
  97.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  98.      (command EAITege (strcat EAITpfn "33731V4") P1 "" "" EAITofkei pause)
  99.  
  100.      (setq Wi (EAITbw))
  101.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 207)) 19) "" "" ""
  102.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  103.      )
  104.    (EAITDBL "0033714")      ;Endschalter M8
  105.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 153)) 29) "" "" ""
  106.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  107.      )
  108.  
  109.      (EAITvarz2)
  110.      (princ)
  111.  
  112. );defun V4
  113.  
  114.  
  115. (defun C:33731D1 ( / P1 Wi)
  116.    (EAITDBL "0033731")
  117.    (princ (strcat "\n\n" EAITbez1))
  118.      (EAITvari)
  119.      (EAITvars)
  120.      (setvar "ORTHOMODE" 0)
  121.      (EAITbpt nil nil nil)
  122.      (setq P1 (getpoint))
  123.      (if (= P1 nil)(setq P1 (EAITrpt)))
  124.      (setvar "OSMODE" 0)
  125.      (setvar "ORTHOMODE" 1)
  126.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  127.      (command EAITege (strcat EAITpfn "33731D1") P1 "" "" EAITofkei pause)
  128.  
  129.      (setq Wi (EAITbw))
  130.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 348)) 30) "" "" ""
  131.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  132.      )
  133.  
  134.      (EAITvarz2)
  135.      (princ)
  136.  
  137. );defun D1
  138.  
  139. (defun C:33731D2 ( / P1 Wi)
  140.    (EAITDBL "0033731")
  141.    (princ (strcat "\n\n" EAITbez1))
  142.      (EAITvari)
  143.      (EAITvars)
  144.      (setvar "ORTHOMODE" 0)
  145.      (EAITbpt nil nil nil)
  146.      (setq P1 (getpoint))
  147.      (if (= P1 nil)(setq P1 (EAITrpt)))
  148.      (setvar "OSMODE" 0)
  149.      (setvar "ORTHOMODE" 1)
  150.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  151.      (command EAITege (strcat EAITpfn "33731D2") P1 "" "" EAITofkei pause)
  152.  
  153.      (setq Wi (EAITbw))
  154.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 340)) 18) "" "" ""
  155.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  156.      )
  157.    (EAITDBL "0033714")      ;Endschalter M8
  158.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 10)) 28) "" "" ""
  159.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  160.      )
  161.  
  162.      (EAITvarz2)
  163.      (princ)
  164.  
  165. );defun D2
  166.  
  167. (defun C:33731S1 ( / P1 Wi)
  168.    (EAITDBL "0033731")
  169.    (princ (strcat "\n\n" EAITbez1))
  170.      (EAITvari)
  171.      (EAITvars)
  172.      (setvar "ORTHOMODE" 0)
  173.      (EAITbpt nil nil nil)
  174.      (setq P1 (getpoint))
  175.      (if (= P1 nil)(setq P1 (EAITrpt)))
  176.      (setvar "OSMODE" 0)
  177.      (setvar "ORTHOMODE" 1)
  178.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  179.      (command EAITege (strcat EAITpfn "33731S1") P1 "" "" EAITofkei pause)
  180.  
  181.      (setq Wi (EAITbw))
  182.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 292)) 8) "" "" ""
  183.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  184.      )
  185.  
  186.      (EAITvarz2)
  187.      (princ)
  188.  
  189. );defun S1
  190.  
  191. (defun C:33731S2 ( / P1 Wi)
  192.    (EAITDBL "0033731")
  193.    (princ (strcat "\n\n" EAITbez1))
  194.      (EAITvari)
  195.      (EAITvars)
  196.      (setvar "ORTHOMODE" 0)
  197.      (EAITbpt nil nil nil)
  198.      (setq P1 (getpoint))
  199.      (if (= P1 nil)(setq P1 (EAITrpt)))
  200.      (setvar "OSMODE" 0)
  201.      (setvar "ORTHOMODE" 1)
  202.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  203.      (command EAITege (strcat EAITpfn "33731S2") P1 "" "" EAITofkei pause)
  204.  
  205.      (setq Wi (EAITbw))
  206.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 292)) 8) "" "" ""
  207.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  208.      )
  209.    (EAITDBL "0033714")      ;Endschalter M8
  210.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 85)) 14) "" "" ""
  211.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  212.      )
  213.  
  214.      (EAITvarz2)
  215.      (princ)
  216.  
  217. );defun S2
  218.  
  219.  
  220. (princ)
  221.